From: Glenn Morris <rgm@gnu.org>
Date: Sun, 4 Aug 2002 16:18:18 +0000 (+0000)
Subject: (fancy-splash-frame): Check selected frame last.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31251
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=971b8239b2044edbd7bc885e644ac9bb9a892c05;p=emacs.git

(fancy-splash-frame): Check selected frame last.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 42f2d545fea..fbcc534e31b 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1306,7 +1306,7 @@ Returning non-nil does not mean we should necessarily
 use the fancy splash screen, but if we do use it,
 we put it on this frame."
   (let (chosen-frame)
-    (dolist (frame (frame-list))
+    (dolist (frame (append (frame-list) (list (selected-frame))))
       (if (and (frame-visible-p frame)
 	       (not (window-minibuffer-p (frame-selected-window frame))))
 	  (setq chosen-frame frame)))